home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00284_Script_GESTION_ZONE_TRAVELING_MANUEL_VERS_BAS < prev    next >
Text File  |  2004-12-05  |  2KB  |  49 lines
  1. global gpiste_Fond, gdemiH_Fond, gL_Home, gdeltaTravelingMax, gze_label, gNb_Traveltracks,gpisteReticule,gdeltaTraveling
  2. property pdizsprite, pdizspriteNo,pdizguyName, p_coefReticule
  3. ---------------------------------------------
  4. on getPropertyDescriptionList me
  5.   return [#p_coefReticule:[#comment: "coef de la miniature (-1 => pas de miniature:",#format:  #integer, #default: 0.1 ]]
  6. end getPropertyDescriptionList
  7. ----------------------------------
  8. on beginsprite me
  9.   pdizspriteNo = me.spriteNum
  10.   pdizsprite = sprite(pdizspriteNo)
  11.   pdizguyName = pdizsprite.member.name
  12.   if voidP(gdeltaTravelingMax) then gdeltaTravelingMax = [0,0]
  13.   gdeltaTravelingMax[2] = sprite(gpiste_Fond).member.height -480
  14. end
  15. ----------------------------------- 
  16. on mouseWithin
  17.   if the pauseState = 1 then exit
  18.   temp1 = member("doigtBasM").number
  19.   temp2 = member("doigtBasMMASK").number
  20.   cursor[temp1,temp2]
  21.   if sprite(gpiste_Fond).locV > 640 - gdemiH_Fond then
  22.     repeat with i =gpiste_Fond to gpiste_Fond + gNb_Traveltracks
  23.       sprite(i).locV = sprite(i).locV - 5
  24.     end repeat
  25.     gdeltaTraveling[2] = gdeltaTraveling[2] - 5
  26.     if p_coefReticule <> -1 then
  27.       if voidP(gpisteReticule) then
  28.         nothing
  29.       else
  30.         
  31.       end if
  32.     end if
  33.     go the frame
  34.   else
  35.     sprite(gpiste_Fond).locV = 480 - gdemiH_Fond
  36.     repeat with i = 1 to gNb_Traveltracks
  37.       cursor -1
  38.       sprite(gpiste_Fond + i).locV = gL_Home[i][2]- gdeltaTravelingMax[2]
  39.     end repeat
  40.     updateStage
  41.   end if
  42. end
  43. ----------------------------------- 
  44. on mouseLeave
  45.   if the pauseState = 1 then exit
  46.   cursor -1
  47. end
  48. ----------------------------------- 
  49.